The Programmer Disk

home *** CD-ROM | disk | FTP | other *** search

/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / basic3 / pro5 / elements.bas (.txt) < prev next >

Wrap

GW-BASIC | 1979-12-31 | 20.9 KB | 853 lines

10 ' Developed January 19, 1990 and completed on January 24, 1990. 20 ' This program was written by <John Maynard>. 30 CLS:KEY OFF:COLOR 8 40 LOCATE 8:PRINT"Using A SPACE between entries, supply the atomic number, atomic weight and the valence for the elements which will pop up on the screen." 50 LOCATE 11:PRINT"FORMAT TO ANSWER PROMPTS: Question: Carbon (C). Your answer: 6 12.01 EQV4;2, where EQV = ASCII(241)" 60 LOCATE 25,32:COLOR 26:PRINT"Always Use CAPS" 70 LOCATE 15:COLOR 6:PRINT"Press [";:COLOR 27:PRINT"B";:COLOR 6:PRINT"] to begin, [";:COLOR 30:PRINT"S";:COLOR 6:PRINT"] to select element or [";:COLOR 24:PRINT"V";:COLOR 6:PRINT"] to save changes to program." 80 LOCATE 19,19:PRINT"Press [";:COLOR 28:PRINT"E";:COLOR 6:PRINT"] to exit program at any time." 90 B$=INKEY$:IF B$="B" THEN 140 100 IF B$="S" THEN 7730 110 IF B$="E" THEN 7550 120 IF B$="V" THEN 7430 130 GOTO 90 140 CLS:LOCATE 10,5:INPUT"Strontium (Sr)";SR$ 150 IF SR$="38 87.6 2" THEN 190 ELSE BEEP 160 LOCATE 13,5:PRINT"The at. no. of Sr is 38; at. wt. is 87.6; valence is 2" 170 GOSUB 1420 180 GOTO 140 190 GOSUB 7700 200 R$=INKEY$:IF R$="R" THEN CLS:GOTO 140 210 IF R$="C" THEN 240 220 GOSUB 7400 230 GOTO 200 240 CLS:LOCATE 9,5:INPUT"Carbon (C)";C$ 250 IF C$ ="6 12.01 EQV4 2"THEN 290 ELSE BEEP 260 LOCATE 11,5:PRINT"The at. no. of C is 6; at. wt. is 12.01; valence is EQV4,2" 270 GOSUB 1420 280 GOTO 240 290 GOSUB 7700 300 R$=INKEY$:IF R$="R" THEN CLS:GOTO 240 310 IF R$="C" THEN 340 320 GOSUB 7400 330 GOTO 300 340 CLS:LOCATE 13,5:INPUT"Cesium (Cs)";CS$ 350 IF CS$="55 133 1"THEN 390 ELSE BEEP 360 LOCATE 15,5:PRINT"The at. no. of Cs is 55; at. wt. is 133; valence is 1" 370 GOSUB 1420 380 GOTO 340 390 GOSUB 7700 400 R$=INKEY$:IF R$="R" THEN CLS:GOTO 340 410 IF R$="C" THEN 440 420 GOSUB 7400 430 GOTO 400 440 CLS:LOCATE 11,5:INPUT"Fluorine (F)";F$ 450 IF F$="9 19 -1" THEN 490 ELSE BEEP 460 LOCATE 13,5:PRINT"The at. no. of F is 9; at. wt. is 19; valence is -1" 470 GOSUB 1420 480 GOTO 440 490 GOSUB 7700 500 R$=INKEY$:IF R$="R" THEN CLS:GOTO 440 510 IF R$="C" THEN 540 520 GOSUB 7400 530 GOTO 500 540 CLS:LOCATE 8,5:INPUT"Magnesium (Mg)";MG$ 550 IF MG$="12 24.3 2" THEN 590 ELSE BEEP 560 LOCATE 10,5:PRINT"The at. no. of Mg is 12; at. wt. is 24.3; valence is 2" 570 GOSUB 1420 580 GOTO 540 590 GOSUB 7700 600 R$=INKEY$:IF R$="R" THEN CLS:GOTO 540 610 IF R$="C" THEN 640 620 GOSUB 7400 630 GOTO 600 640 CLS:LOCATE 5,5:INPUT"Chlorine (CL)";CL$ 650 IF CL$="17 35.5 EQV1 5 7"THEN 690 ELSE BEEP 660 LOCATE 7,5:PRINT"The at. no. of Cl is 17; at. wt. is 35.5; valence: EQV1,5,7 670 GOSUB 1420 680 GOTO 640 690 GOSUB 7700 700 R$=INKEY$:IF R$="R" THEN CLS:GOTO 640 710 IF R$="C" THEN 740 720 GOSUB 7400 730 GOTO 700 740 CLS:LOCATE 13,5:INPUT"Sodium (Na)";NA$ 750 IF NA$="11 23 1" THEN 790 ELSE BEEP 760 LOCATE 15,5:PRINT"The at. no. of Na is 11; at. wt. is 23; valence is 1" 770 GOSUB 1420 780 GOTO 740 790 GOSUB 7700 800 R$=INKEY$:IF R$="R" THEN CLS:GOTO 740 810 IF R$="C" THEN 840 820 GOSUB 7400 830 GOTO 800 840 CLS:LOCATE 4,7:INPUT"Gallium (Ga)";GA$ 850 IF GA$="31 69.7 3" THEN 890 ELSE BEEP 860 LOCATE 6,5:PRINT"The at. no. of Ga is 31; at. wt. is 69.7; valence is 3" 870 GOSUB 1420 880 GOTO 840 890 GOSUB 7700 900 R$=INKEY$:IF R$="R" THEN CLS:GOTO 840 910 IF R$="C" THEN 940 920 GOSUB 7400 930 GOTO 900 940 CLS:LOCATE 7,5:INPUT"Arsenic (As)";AS$ 950 IF AS$="33 74.9 EQV3 5"THEN 990 ELSE BEEP 960 LOCATE 9,5:PRINT"The at. no. of As is 33; at. wt. is 74.9; valence is EQV3 5 970 GOSUB 1420 980 GOTO 940 990 GOSUB 7700 1000 R$=INKEY$:IF R$="R" THEN CLS:GOTO 940 1010 IF R$="C" THEN 1040 1020 GOSUB 7400 1030 GOTO 1000 1040 CLS:LOCATE 9,5:INPUT"Barium (Ba)";BA$ 1050 IF BA$="56 137.3 2" THEN 1090 ELSE BEEP 1060 LOCATE 11,5:PRINT"The at. no. of Ba is 56; at. wt. is 137.3; valence is 2" 1070 GOSUB 1420 1080 GOTO 1040 1090 GOSUB 7700 1100 R$=INKEY$:IF R$="R" THEN CLS:GOTO 1040 1110 IF R$="C" THEN 1140 1120 GOSUB 7400 1130 GOTO 1100 1140 CLS:LOCATE 3,5:INPUT"Beryllium (Be)";BE$ 1150 IF BE$="4 9 2" THEN 1190 ELSE BEEP 1160 LOCATE 5,7:PRINT"The at. no. of Be is 4; at. wt. is 9; valence is 2" 1170 GOSUB 1420 1180 GOTO 1140 1190 GOSUB 7700 1200 R$=INKEY$:IF R$="R" THEN CLS:GOTO 1140 1210 IF R$="C" THEN 1240 1220 GOSUB 7400 1230 GOTO 1200 1240 CLS:LOCATE 10,5:INPUT"Argon (Ar)";AR$ 1250 IF AR$="18 39.95 0" THEN 1290 ELSE BEEP 1260 LOCATE 12,5:PRINT"The at. no. of Ar is 18; at. wt. is 39.95; valence is 0" 1270 GOSUB 1420 1280 GOTO 1240 1290 GOSUB 7700 1300 R$=INKEY$:IF R$="R" THEN CLS:GOTO 1240 1310 IF R$="C" THEN 1340 1320 GOSUB 7400 1330 GOTO 1300 1340 CLS:LOCATE 5,5:INPUT"Hafnium (Hf)";HF$ 1350 IF HF$="72 178.5 4" THEN 1460 ELSE BEEP 1360 LOCATE 7,5:PRINT"The at. no. of Hf is 72; at. wt. is 178.5; valence 4" 1370 GOSUB 1420 1380 GOTO 1340 1390 ' ================================================================== 1400 ' RETURN TO SCREEN SUBROUTINE 1410 ' ================================================================== 1420 LOCATE 25,30:PRINT"Press (";:COLOR 31:PRINT"R";:COLOR 5:PRINT") to re-enter" 1430 IF INKEY$<>"R" THEN 1430 1440 CLS:RETURN 1450 ' ====================== END OF SUBROUTINE =========================== 1460 GOSUB 7700 1470 R$=INKEY$:IF R$="R" THEN CLS:GOTO 1340 1480 IF R$="C" THEN 1510 1490 GOSUB 7400 1500 GOTO 1470 1510 CLS:LOCATE 3,3:INPUT"Thorium (Th)";TH$ 1520 IF TH$="90 232 4" THEN 1560 ELSE BEEP 1530 LOCATE 5,3:PRINT"The at. no. of Th is 90; at. wt. is 232; valence is 4" 1540 GOSUB 1420 1550 GOTO 1510 1560 GOSUB 7700 1570 R$=INKEY$:IF R$="R" THEN CLS:GOTO 1510 1580 IF R$="C" THEN 1610 1590 GOSUB 7400 1600 GOTO 1570 1610 CLS:LOCATE 5,3:INPUT"Bromine (Br)";BR$ 1620 IF BR$="35 79.9 EQV1 5" THEN 1660 ELSE BEEP 1630 LOCATE 7,3:PRINT"The at. no. of Br. is 35; at. wt. is 79.9; valence EQV1,5" 1640 GOSUB 1420 1650 GOTO 1610 1660 GOSUB 7700 1670 R$=INKEY$:IF R$="R" THEN CLS:GOTO 1610 1680 IF R$="C" THEN 1710 1690 GOSUB 7400 1700 GOTO 1670 1710 CLS:LOCATE 8,5:INPUT"Molybdenum (Mo)";MO$ 1720 IF MO$="42 95.9 3 5 6" THEN 1760 ELSE BEEP 1730 LOCATE 11,5:PRINT"The at. no. of Mo is 42; at. wt. 95.9; valence is 3,5,6" 1740 GOSUB 1420 1750 GOTO 1710 1760 GOSUB 7700 1770 R$=INKEY$:IF R$="R" THEN CLS:GOTO 1710 1780 IF R$="C" THEN 1810 1790 GOSUB 7400 1800 GOTO 1770 1810 CLS:LOCATE 8,5:INPUT"Aluniminum (Al)";AL$ 1820 IF AL$="13 27 3" THEN 1860 ELSE BEEP 1830 LOCATE 10,5:PRINT"The at. no. of Al is 13; at. wt. is 27; valence is 3" 1840 GOSUB 1420 1850 GOTO 1810 1860 GOSUB 7700 1870 R$=INKEY$:IF R$="R" THEN CLS:GOTO 1810 1880 IF R$="C" THEN 1910 1890 GOSUB 7400 1900 GOTO 1870 1910 CLS:LOCATE 3,5:INPUT"Bismuth (Bi)";BI$ 1920 IF BI$="83 209 3 5" THEN 1960 ELSE BEEP 1930 LOCATE 5,5:PRINT"The at. no. of Bi is 83; at. wt. is 209; valence is 3,5" 1940 GOSUB 1420 1950 GOTO 1910 1960 GOSUB 7700 1970 R$=INKEY$:IF R$="R" THEN CLS:GOTO 1910 1980 IF R$="C" THEN 2010 1990 GOSUB 7400 2000 GOTO 1970 2010 CLS:LOCATE 4,5:INPUT"Cadmium (Cd)";CD$ 2020 IF CD$="48 112.4 2" THEN 2060 ELSE BEEP 2030 LOCATE 6,5:PRINT"The at. no. of Cd is 48; at. wt. is 112.4; valence is 2" 2040 GOSUB 1420 2050 GOTO 2010 2060 GOSUB 7700 2070 R$=INKEY$:IF R$="R" THEN CLS:GOTO 2010 2080 IF R$="C" THEN 2110 2090 GOSUB 7400 2100 GOTO 2070 2110 CLS:LOCATE 5,5:INPUT"Actinium (Ac)";AC$ 2120 IF AC$="89 227 3" THEN 2160 ELSE BEEP 2130 LOCATE 7,5:PRINT"The at. no. of Ac is 89; at. wt. is 227; valence is 3" 2140 GOSUB 1420 2150 GOTO 2110 2160 GOSUB 7700 2170 R$=INKEY$:IF R$="R" THEN CLS:GOTO 2110 2180 IF R$="C" THEN 2210 2190 GOSUB 7400 2200 GOTO 2170 2210 CLS:LOCATE 8,5:INPUT"Radon (Rn)";RN$ 2220 IF RN$="86 222 0" THEN 2260 ELSE BEEP 2230 LOCATE 10,5:PRINT"The at. no. of Rn is 86; at. no. is 222; valence is 0" 2240 GOSUB 1420 2250 GOTO 2210 2260 GOSUB 7700 2270 R$=INKEY$:IF R$="R" THEN CLS:GOTO 2210 2280 IF R$="C" THEN 2310 2290 GOSUB 7400 2300 GOTO 2270 2310 CLS:LOCATE 9,5:INPUT"Calcium (Ca)";CA$ 2320 IF CA$="20 40.08 2" THEN 2360 ELSE BEEP 2330 LOCATE 11,5:PRINT"The at. no. of Ca is 20; at. wt. is 40.08; valence is 2" 2340 GOSUB 1420 2350 GOTO 2310 2360 GOSUB 7700 2370 R$=INKEY$:IF R$="R" THEN CLS:GOTO 2310 2380 IF R$="C" THEN 2420 2390 GOSUB 7400 2400 IF R$="E" THEN 7360 2410 GOTO 2370 2420 CLS:LOCATE 10,5:INPUT"Nickel (Ni)";NI$ 2430 IF NI$="28 58.7 2 3" THEN 2470 ELSE BEEP 2440 LOCATE 12,5:PRINT"The at. no. of Ni is 28; at. wt. is 58.7; valence is 2,3 2450 GOSUB 1420 2460 GOTO 2420 2470 GOSUB 7700 2480 R$=INKEY$:IF R$="R" THEN CLS:GOTO 2420 2490 IF R$="C" THEN 2520 2500 GOSUB 7400 2510 GOTO 2480 2520 CLS:LOCATE 11,5:INPUT"Lead (Pb)";PB$ 2530 IF PB$="82 207.2 2 4" THEN 2570 ELSE BEEP 2540 LOCATE 13,5:PRINT"The at. no. of Pb is 82; at. wt. is 207.2; valence: 2,4" 2550 GOSUB 1420 2560 GOTO 2520 2570 GOSUB 7700 2580 R$=INKEY$:IF R$="R" THEN CLS:GOTO 2520 2590 IF R$="C" THEN 2620 2600 GOSUB 7400 2610 GOTO 2580 2620 CLS:LOCATE 12,5:INPUT"Potassium (K)";K$ 2630 IF K$="19 39.1 1" THEN 2670 ELSE BEEP 2640 LOCATE 14,5:PRINT"The at. no. of K is 19; at. wt. is 39.1; valence is 1" 2650 GOSUB 1420 2660 GOTO 2620 2670 GOSUB 7700 2680 R$=INKEY$:IF R$="R" THEN CLS:GOTO 2620 2690 IF R$="C" THEN 2720 2700 GOSUB 7400 2710 GOTO 2680 2720 CLS:LOCATE 3,5:INPUT"Radium (Ra)";RA$ 2730 IF RA$="88 226 2" THEN 2770 ELSE BEEP 2740 LOCATE 5,5:PRINT"The at. no. of Ra is 88; at. wt. is 226; valence is 2" 2750 GOSUB 1420 2760 GOTO 2720 2770 GOSUB 7700 2780 R$=INKEY$:IF R$="R" THEN CLS:GOTO 2720 2790 IF R$="C" THEN 2820 2800 GOSUB 7400 2810 GOTO 2780 2820 CLS:LOCATE 5,5:INPUT"Copper (Cu)";CU$ 2830 IF CU$="29 63.55 1 2" THEN 2870 ELSE BEEP 2840 LOCATE 7,5:PRINT"The at. no. of Cu is 29; at. wt. is 63.55; valence 1,2" 2850 GOSUB 1420 2860 GOTO 2820 2870 GOSUB 7700 2880 R$=INKEY$:IF R$="R" THEN CLS:GOTO 2820 2890 IF R$="C" THEN 2920 2900 GOSUB 7400 2910 GOTO 2880 2920 CLS:LOCATE 7,5:INPUT"Helium (He)";HE$ 2930 IF HE$="2 4 0" THEN 2970 ELSE BEEP 2940 LOCATE 9,5:PRINT"The at. no. of He is 2; at. wt. is 4; valence is 0" 2950 GOSUB 1420 2960 GOTO 2920 2970 GOSUB 7700 2980 R$=INKEY$:IF R$="R" THEN CLS:GOTO 2920 2990 IF R$="C" THEN 3020 3000 GOSUB 7400 3010 GOTO 2980 3020 CLS:LOCATE 5,5:INPUT"Iron (Fe)";FE$ 3030 IF FE$="26 55.8 2 3" THEN 3070 ELSE BEEP 3040 LOCATE 7,5:PRINT"The at. no of Fe is 26; at. wt. is 55.8; valence is 2,3" 3050 GOSUB 1420 3060 GOTO 3020 3070 GOSUB 7700 3080 R$=INKEY$:IF R$="R" THEN CLS:GOTO 3020 3090 IF R$="C" THEN 3120 3100 GOSUB 7400 3110 GOTO 3080 3120 CLS:LOCATE 10,5:INPUT"Antimony (Sb)";SB$ 3130 IF SB$="51 121.75 3 5" THEN 3170 ELSE BEEP 3140 LOCATE 12,5:PRINT"The at. no of Sb is 51; at. wt. is 121.75; valence: 3,5 3150 GOSUB 1420 3160 GOTO 3120 3170 GOSUB 7700 3180 R$=INKEY$:IF R$="R" THEN CLS:GOTO 3120 3190 IF R$="C" THEN 3220 3200 GOSUB 7400 3210 GOTO 3180 3220 CLS:LOCATE 13,5:INPUT"Boron (B)";B$ 3230 IF B$="5 10.8 3" THEN 3270 ELSE BEEP 3240 LOCATE 15,5:PRINT"The at. no. of B is 5; at. wt. is 10.8; valence is 3" 3250 GOSUB 1420 3260 GOTO 3220 3270 GOSUB 7700 3280 R$=INKEY$:IF R$="R" THEN CLS:GOTO 3220 3290 GOSUB 7400 3300 IF R$="C" THEN 3330 3310 GOSUB 7400 3320 GOTO 3280 3330 CLS:LOCATE 10,10:INPUT"Chromium (Cr)";CR$ 3340 IF CR$="24 52 2 3 6" THEN 3380 ELSE BEEP 3350 LOCATE 12,10:PRINT"The at. no. of Cr is 24; at. wt. is 52; valence: 2,3,6" 3360 GOSUB 1420 3370 GOTO 3330 3380 GOSUB 7700 3390 R$=INKEY$:IF R$="R" THEN CLS:GOTO 3330 3400 IF R$="C" THEN 3430 3410 GOSUB 7400 3420 GOTO 3390 3430 CLS:LOCATE 11,10:INPUT"Cobalt (Co)";CO$ 3440 IF CO$="27 58.9 2 3" THEN 3480 ELSE BEEP 3450 LOCATE 13,10:PRINT"The at. no of Co is 27; at. wt. is 58.9; valence: 2,3" 3460 GOSUB 1420 3470 GOTO 3430 3480 GOSUB 7700 3490 R$=INKEY$:IF R$="R" THEN CLS:GOTO 3430 3500 IF R$="C" THEN 3530 3510 GOSUB 7400 3520 GOTO 3490 3530 CLS:LOCATE 5,10:INPUT"Germanium (Ge)";GE$ 3540 IF GE$="32 72.6 4" THEN 3580 ELSE BEEP 3550 LOCATE 7,10:PRINT"The at. no. of Ge is 32; at. wt. is 72.6; valence is 4" 3560 GOSUB 1420 3570 GOTO 3530 3580 GOSUB 7700 3590 R$=INKEY$:IF R$="R" THEN CLS:GOTO 3530 3600 IF R$="C" THEN 3630 3610 GOSUB 7400 3620 GOTO 3590 3630 CLS:LOCATE 5,10:INPUT"Iodine (I)";I$ 3640 IF I$="53 126.9 -1 5 7" THEN 3680 ELSE BEEP 3650 LOCATE 7,10:PRINT"The at. no. of I is 53; at. wt.: 126.9; valence: -1,5,7: 3660 GOSUB 1420 3670 GOTO 3630 3680 GOSUB 7700 3690 R$=INKEY$:IF R$="R" THEN CLS:GOTO 3630 3700 IF R$="C" THEN 3730 3710 GOSUB 7400 3720 GOTO 3690 3730 CLS:LOCATE 3,5:INPUT"Iridium (Ir)";IR$ 3740 IF IR$="77 192 3 4 6" THEN 3780 ELSE BEEP 3750 LOCATE 5,5:PRINT"The at. no. of Ir is 77; at. wt: 192; valence is 3,4,6" 3760 GOSUB 1420 3770 GOTO 3730 3780 GOSUB 7700 3790 R$=INKEY$:IF R$="R" THEN CLS:GOTO 3730 3800 IF R$="C" THEN 3830 3810 GOSUB 7400 3820 GOTO 3790 3830 CLS:LOCATE 5,5:INPUT"Indium (In)";IN$ 3840 IF IN$="49 114.8 3" THEN 3880 ELSE BEEP 3850 LOCATE 7,5:PRINT"The at. no. of In is 49; at. wt: 114.8; valence IS 3" 3860 GOSUB 1420 3870 GOTO 3830 3880 GOSUB 7700 3890 R$=INKEY$:IF R$="R" THEN CLS:GOTO 3830 3900 IF R$="C" THEN 3930 3910 GOSUB 7400 3920 GOTO 3890 3930 CLS:LOCATE 8,5:INPUT"Gold (Au)";AU$ 3940 IF AU$="79 197 1 3" THEN 3980 ELSE BEEP 3950 LOCATE 10,5:PRINT"The at. no. of Au is 79; at. wt. is 197; valence: 1,3" 3960 GOSUB 1420 3970 GOTO 3930 3980 GOSUB 7700 3990 R$=INKEY$:IF R$="R" THEN CLS:GOTO 3930 4000 IF R$="C" THEN 4030 4010 GOSUB 7400 4020 GOTO 3990 4030 CLS:LOCATE 13,5:INPUT"Krypton (Kr)";KR$ 4040 IF KR$="36 83.8 0" THEN 4080 ELSE BEEP 4050 LOCATE 15,5:PRINT"The at. no. of Kr is 36; at. wt. is 83.8; valence: 0" 4060 GOSUB 1420 4070 GOTO 4030 4080 GOSUB 7700 4090 R$=INKEY$:IF R$="R" THEN CLS:GOTO 4030 4100 IF R$="C" THEN 4130 4110 GOSUB 7400 4120 GOTO 4090 4130 CLS:LOCATE 3,5:INPUT"Plutonium (Pu)";PU$ 4140 IF PU$="94 244 3 4 5 6" THEN 4180 ELSE BEEP 4150 LOCATE 5,5:PRINT"The at. no. of Pu is 94; at. wt.: 244; valence: 3,4,5,6" 4160 GOSUB 1420 4170 GOTO 4130 4180 GOSUB 7700 4190 R$=INKEY$:IF R$="R" THEN CLS:GOTO 4130 4200 IF R$="C" THEN 4230 4210 GOSUB 7400 4220 GOTO 4190 4230 CLS:LOCATE 5,5:INPUT"Polonium (Po)";PO$ 4240 IF PO$="84 210 2 4" THEN 4280 ELSE BEEP 4250 LOCATE 7,5:PRINT"The at. no. of Po is 84; at. wt. is 210; valence is 2,4" 4260 GOSUB 1420 4270 GOTO 4230 4280 GOSUB 7700 4290 R$=INKEY$:IF R$="R" THEN CLS:GOTO 4230 4300 IF R$="C" THEN 4330 4310 GOSUB 7400 4320 GOTO 4290 4330 CLS:LOCATE 3,5:INPUT"Lanthanum (La)";LA$ 4340 IF LA$="57 138.9 3"THEN 4380 ELSE BEEP 4350 LOCATE 5,5:PRINT"The at. no. for La is 57; at. wt. is 138.9; valence: 3" 4360 GOSUB 1420 4370 GOTO 4330 4380 GOSUB 7700 4390 R$=INKEY$:IF R$="R" THEN CLS:GOTO 4330 4400 IF R$="C" THEN 4430 4410 GOSUB 7400 4420 GOTO 4390 4430 CLS:LOCATE 7,5:INPUT"Lithium (Li)";LI$ 4440 IF LI$="3 6.9 1" THEN 4480 ELSE BEEP 4450 LOCATE 9,5:PRINT"The at. no for Li is 3; at. wt. is 6.9; valence is 1" 4460 GOSUB 1420 4470 GOTO 4430 4480 GOSUB 7700 4490 R$=INKEY$:IF R$="R" THEN CLS:GOTO 4430 4500 IF R$="C" THEN 4530 4510 GOSUB 7400 4520 GOTO 4490 4530 CLS:LOCATE 9,5:INPUT"Zirconium (Zr)";ZR$ 4540 IF ZR$="40 91 4" THEN 4580 ELSE BEEP 4550 LOCATE 11,5:PRINT"The at. no. of Zr is 40; at. wt. is 91; valence is 4" 4560 GOSUB 1420 4570 GOTO 4530 4580 GOSUB 7700 4590 R$=INKEY$:IF R$="R" THEN CLS:GOTO 4530 4600 IF R$="C" THEN 4630 4610 GOSUB 7400 4620 GOTO 4590 4630 CLS:LOCATE 5,5:INPUT"Zinc (Zn)";ZN$ 4640 IF ZN$="30 65.4 2" THEN 4680 ELSE BEEP 4650 LOCATE 7,5:PRINT"The at. no. of Zn is 30; at. wt. is 65.4; valence is 2" 4660 GOSUB 1420 4670 GOTO 4630 4680 GOSUB 7700 4690 R$=INKEY$:IF R$="R" THEN CLS:GOTO 4630 4700 IF R$="C" THEN 4730 4710 GOSUB 7400 4720 GOTO 4690 4730 CLS:LOCATE 4,5:INPUT"Yittrium (Y)";Y$ 4740 IF Y$="39 88.9 3" THEN 4780 ELSE BEEP 4750 LOCATE 6,5:PRINT"The at. no. of Y is 39; at. wt. is 88.9; valence is 3" 4760 GOSUB 1420 4770 GOTO 4730 4780 GOSUB 7700 4790 R$=INKEY$:IF R$="R" THEN CLS:GOTO 4730 4800 IF R$="C" THEN 4830 4810 GOSUB 7400 4820 GOTO 4790 4830 CLS:LOCATE 8,5:INPUT"Xenon (Xe)";XE$ 4840 IF XE$="54 131 0" THEN 4880 ELSE BEEP 4850 LOCATE 10,5:PRINT"The at. no of Xe is 54; at. wt. is 131; valence is 0" 4860 GOSUB 1420 4870 GOTO 4830 4880 GOSUB 7700 4890 R$=INKEY$:IF R$="R" THEN CLS:GOTO 4830 4900 IF R$="C" THEN 4930 4910 GOSUB 7400 4920 GOTO 4890 4930 CLS:LOCATE 9,5:INPUT"Vanadium (V)";V$ 4940 IF V$="23 50.9 2 4 5" THEN 4980 ELSE BEEP 4950 LOCATE 11,5:PRINT"The at. no. of V is 23; at. wt. is 50.9; valence: 2,4,5" 4960 GOSUB 1420 4970 GOTO 4930 4980 GOSUB 7700 4990 R$=INKEY$:IF R$="R" THEN CLS:GOTO 4930 5000 IF R$="C" THEN 5030 5010 GOSUB 7400 5020 GOTO 4990 5030 CLS:LOCATE 7,5:INPUT"Uranium (U)";U$ 5040 IF U$="92 238 3 4 5 6" THEN 5080 ELSE BEEP 5050 LOCATE 9,5:PRINT"The at. no. of U is 92; at. wt. is 238; valence: 3,4,5,6" 5060 GOSUB 1420 5070 GOTO 5030 5080 GOSUB 7700 5090 R$=INKEY$:IF R$="R" THEN CLS:GOTO 5030 5100 IF R$="C" THEN 5130 5110 GOSUB 7400 5120 GOTO 5090 5130 CLS:LOCATE 7,5:INPUT"Manganese (Mn)";MN$ 5140 IF MN$="25 54.9 2 3 4 6 7" THEN 5180 ELSE BEEP 5150 LOCATE 9,5:PRINT"The at. no. of Mn: 25; at. wt.: 54.9; valence: 2,3,4,6,7" 5160 GOSUB 1420 5170 GOTO 5130 5180 GOSUB 7700 5190 R$=INKEY$:IF R$="R" THEN CLS:GOTO 5130 5200 IF R$="C" THEN 5230 5210 GOSUB 7400 5220 GOTO 5190 5230 CLS:LOCATE 7,5:INPUT"Mercury (Hg)";HG$ 5240 IF HG$="80 200.6 1 2" THEN 5280 ELSE BEEP 5250 LOCATE 9,5:PRINT"The at. no. of Hg is 80; at. wt. is 200.6; valence 1,2" 5260 GOSUB 1420 5270 GOTO 5230 5280 GOSUB 7700 5290 R$=INKEY$:IF R$="R" THEN CLS:GOTO 5230 5300 IF R$="C" THEN 5330 5310 GOSUB 7400 5320 GOTO 5290 5330 CLS:LOCATE 7,5:INPUT"Neon (Ne)";NE$ 5340 IF NE$="10 20 0" THEN 5380 ELSE BEEP 5350 LOCATE 9,5:PRINT"The at. no.of Ne is 10; at. wt. is 20; valence is 0" 5360 GOSUB 1420 5370 GOTO 5330 5380 GOSUB 7700 5390 R$=INKEY$:IF R$="R" THEN CLS:GOTO 5330 5400 IF R$="C" THEN 5430 5410 GOSUB 7400 5420 GOTO 5390 5430 CLS:LOCATE 7,5:INPUT"Nitrogen (N)";N$ 5440 IF N$="7 14 -3 2 5" THEN 5480 ELSE BEEP 5450 LOCATE 9,5:PRINT"The at. no. of N is 7; at. wt. is 14; valence: -3,2,5" 5460 GOSUB 1420 5470 GOTO 5430 5480 GOSUB 7700 5490 R$=INKEY$:IF R$="R" THEN CLS:GOTO 5430 5500 IF R$="C" THEN 5530 5510 GOSUB 7400 5520 GOTO 5490 5530 CLS:LOCATE 9,5:INPUT"Osmium (Os)";OS$ 5540 IF OS$="76 190.2 4 6 8" THEN 5580 ELSE BEEP 5550 LOCATE 11,5:PRINT"The at. no. of Os is 76; at. wt.: 190.2; valence: 4,6,8" 5560 GOSUB 1420 5570 GOTO 5530 5580 GOSUB 7700 5590 R$=INKEY$:IF R$="R" THEN CLS:GOTO 5530 5600 IF R$="C" THEN 5630 5610 GOSUB 7400 5620 GOTO 5590 5630 CLS:LOCATE 9,5:INPUT"Palladium (Pd)";PD$ 5640 IF PD$="46 106.4 2 4" THEN 5680 ELSE BEEP 5650 LOCATE 13,5:PRINT"The at. no. of Pd is 46; at. wt. is 106.4; valence: 2,4" 5660 GOSUB 1420 5670 GOTO 5630 5680 GOSUB 7700 5690 R$=INKEY$:IF R$="R" THEN CLS:GOTO 5630 5700 IF R$="C" THEN 5730 5710 GOSUB 7400 5720 GOTO 5690 5730 CLS:LOCATE 8,5:INPUT"Phosphorus (P)";P$ 5740 IF P$="15 31 EQV3 5" THEN 5780 ELSE BEEP 5750 LOCATE 10,5:PRINT"The at. no. of P is 15; at. wt. is 31; valence is EQV3,5" 5760 GOSUB 1420 5770 GOTO 5730 5780 GOSUB 7700 5790 R$=INKEY$:IF R$="R" THEN CLS:GOTO 5730 5800 IF R$="C" THEN 5830 5810 GOSUB 7400 5820 GOTO 5790 5830 CLS:LOCATE 7,5:INPUT"Platinum (Pt)";PT$ 5840 IF PT$="78 195.1 2 4" THEN 5880 ELSE BEEP 5850 LOCATE 9,5:PRINT"The at. no. of Pt is 78; at. wt. is 195.1; valence: 2,4" 5860 GOSUB 1420 5870 GOTO 5830 5880 GOSUB 7700 5890 R$=INKEY$:IF R$="R" THEN CLS:GOTO 5830 5900 IF R$="C" THEN 5930 5910 GOSUB 7400 5920 GOTO 5890 5930 CLS:LOCATE 10,5:INPUT"Tin (Sn)";SN$ 5940 IF SN$="50 118.7 2 4" THEN 5980 ELSE BEEP 5950 LOCATE 12,5:PRINT"The at. no. of Sn is 50; at. wt.: 118.7; valence 2,4" 5960 GOSUB 1420 5970 GOTO 5930 5980 GOSUB 7700 5990 R$=INKEY$:IF R$="R" THEN CLS:GOTO 5930 6000 IF R$="C" THEN 6030 6010 GOSUB 7400 6020 GOTO 5990 6030 CLS:LOCATE 3,5:INPUT"Rubidium (Rb)";RB$ 6040 IF RB$="37 85.5 1" THEN 6080 ELSE BEEP 6050 LOCATE 5,5:PRINT"The at. no. of Rb is 37; at. wt. is 85.5; valence is 1" 6060 GOSUB 1420 6070 GOTO 6030 6080 GOSUB 7700 6090 R$=INKEY$:IF R$="R" THEN CLS:GOTO 6030 6100 IF R$="C" THEN 6130 6110 GOSUB 7400 6120 GOTO 6090 6130 CLS:LOCATE 5,5:INPUT"Scandium (Sc)";SC$ 6140 IF SC$="21 44.96 3" THEN 6180 ELSE BEEP 6150 LOCATE 7,5:PRINT"The at. no. of Sc is 21; at. wt. is 44.96; valence is 3" 6160 GOSUB 1420 6170 GOTO 6130 6180 GOSUB 7700 6190 R$=INKEY$:IF R$="R" THEN CLS:GOTO 6130 6200 IF R$="C" THEN 6230 6210 GOSUB 7400 6220 GOTO 6190 6230 CLS:LOCATE 7,5:INPUT"Selenium (Se)";SE$ 6240 IF SE$="34 78.96 -2 4 6" THEN 6280 ELSE BEEP 6250 LOCATE 9,5:PRINT"The at. no. of Se is 34; at. wt.: 78.96; valence: -2,4,6 6260 GOSUB 1420 6270 GOTO 6230 6280 GOSUB 7700 6290 R$=INKEY$:IF R$="R" THEN CLS:GOTO 6230 6300 IF R$="C" THEN 6330 6310 GOSUB 7400 6320 GOTO 6290 6330 CLS:LOCATE 5,5:INPUT"Silicon (Si)";SI$ 6340 IF SI$="14 28.1 4" THEN 6380 ELSE BEEP 6350 LOCATE 7,5:PRINT"The at. no. of Si is 14; at. wt. is 28.1; valence is 4" 6360 GOSUB 1420 6370 GOTO 6330 6380 GOSUB 7700 6390 R$=INKEY$:IF R$="R" THEN CLS:GOTO 6330 6400 IF R$="C" THEN 6430 6410 GOSUB 7400 6420 GOTO 6390 6430 CLS:LOCATE 4,5:INPUT"Silver (Ag)";AG$ 6440 IF AG$="47 107.9 1" THEN 6480 ELSE BEEP 6450 LOCATE 6,5:PRINT"The at. no. of Ag is 47: at. wt. is 107.9; valence is 1" 6460 GOSUB 1420 6470 GOTO 6430 6480 GOSUB 7700 6490 R$=INKEY$:IF R$="R" THEN CLS:GOTO 6430 6500 IF R$="C" THEN 6530 6510 GOSUB 7400 6520 GOTO 6490 6530 CLS:LOCATE 5,5:INPUT"Sulfur (S)";S$ 6540 IF S$="16 32.1 -2 4 6" THEN 6580 ELSE BEEP 6550 LOCATE 7,5:PRINT"The at. no. of S is 16; at. wt. is 32.1; valence: -2,4,6" 6560 GOSUB 1420 6570 GOTO 6530 6580 GOSUB 7700 6590 R$=INKEY$:IF R$="R" THEN CLS:GOTO 6530 6600 IF R$="C" THEN 6630 6610 GOSUB 7400 6620 GOTO 6590 6630 CLS:LOCATE 5,5:INPUT"Tantalum (Ta)";TA$ 6640 IF TA$="73 180.95 5" THEN 6680 ELSE BEEP 6650 LOCATE 7,5:PRINT"The at. no. of Ta is 73; at. wt. is 180.95; valence is 5" 6660 GOSUB 1420 6670 GOTO 6630 6680 GOSUB 7700 6690 R$=INKEY$:IF R$="R" THEN CLS:GOTO 6630 6700 IF R$="C" THEN 6730 6710 GOSUB 7400 6720 GOTO 6690 6730 CLS:LOCATE 8,5:INPUT"Technetium (Tc)";TC$ 6740 IF TC$="43 99 7" THEN 6780 ELSE BEEP 6750 LOCATE 10,5:PRINT"The at. no. of Tc is 43; at. wt. is 99; valence is 7" 6760 GOSUB 1420 6770 GOTO 6730 6780 GOSUB 7700 6790 R$=INKEY$:IF R$="R" THEN CLS:GOTO 6730 6800 IF R$="C" THEN 6830 6810 GOSUB 7400 6820 GOTO 6790 6830 CLS:LOCATE 4,5:INPUT"Tellurium (Te)";TE$ 6840 IF TE$="52 127.6 -2 4 6" THEN 6880 ELSE BEEP 6850 LOCATE 6,5:PRINT"The at. no. of Te is 52; at. wt.: 127.6; valence: -2,4,6" 6860 GOSUB 1420 6870 GOTO 6830 6880 GOSUB 7700 6890 R$=INKEY$:IF R$="R" THEN CLS:GOTO 6830 6900 IF R$="C" THEN 6930 6910 GOSUB 7400 6920 GOTO 6890 6930 CLS:LOCATE 5,5:INPUT"Thallium (Tl)";TL$ 6940 IF TL$="81 204.4 1 3" THEN 6980 ELSE BEEP 6950 LOCATE 7,5:PRINT"The at. no. of Tl is 81; at. wt.: 204.4; valence is 1,3" 6960 GOSUB 1420 6970 GOTO 6930 6980 GOSUB 7700 6990 R$=INKEY$:IF R$="R" THEN CLS:GOTO 6930 7000 IF R$="C" THEN 7030 7010 GOSUB 7400 7020 GOTO 6990 7030 CLS:LOCATE 7,5:INPUT"Thulium (Tm)";TM$ 7040 IF TM$="69 168.9 3" THEN 7080 ELSE BEEP 7050 LOCATE 9,5:PRINT"The at. no. of Tm is 69; at. wt. is 168.9; valence is 3" 7060 GOSUB 1420 7070 GOTO 7030 7080 GOSUB 7700 7090 R$=INKEY$:IF R$="R" THEN CLS:GOTO 7030 7100 IF R$="C" THEN 7130 7110 GOSUB 7400 7120 GOTO 7090 7130 CLS:LOCATE 5,5:INPUT"Titanium (Ti)";TI$ 7140 IF TI$="22 47.9 3 4" THEN 7180 ELSE BEEP 7150 LOCATE 7,5:PRINT"The at. no. of Ti is 22; at. wt. is 47.9; valence is 3,4" 7160 GOSUB 1420 7170 GOTO 7030 7180 GOSUB 7700 7190 R$=INKEY$:IF R$="R" THEN CLS:GOTO 7130 7200 IF R$="C" THEN 7230 7210 GOSUB 7400 7220 GOTO 7190 7230 CLS:LOCATE 8,5:INPUT". . . and finally, Tungsten (W)";W$ 7240 IF W$="74 183.9 6" THEN 7280 ELSE BEEP 7250 LOCATE 10,5:PRINT"The at. no. of W is 74; at. wt. is 183.9; valence is 6" 7260 GOSUB 1420 7270 GOTO 7230 7280 GOSUB 7700 7290 R$=INKEY$:IF R$="R" THEN CLS:GOTO 7230 7300 IF R$="C" THEN 7360 7310 GOSUB 7400 7320 GOTO 7290 7330 ' ----------------------------------------------------------------------- 7340 ' EXIT ROUTINE 7350 ' ----------------------------------------------------------------------- 7360 CLS:LOCATE 25,23:COLOR 15:PRINT"Do you wish to ";:COLOR 9:PRINT"review";:COLOR 15:PRINT" this program?" 7370 R$=INKEY$:IF R$="y" OR R$="Y" THEN 30 7380 IF R$="N" OR R$="n" THEN 7550 7390 GOTO 7370 7400 IF R$="S" THEN 7730 7410 IF R$="E" THEN 7360 7420 RETURN 7430 CLS:COLOR 10:LOCATE 25,24:PRINT"Do you wish to ";:COLOR 31:PRINT"SAVE";:COLOR 10:PRINT" this program? 7440 SVE$=INKEY$:IF SVE$="Y" OR SVE$="y" THEN 7470 7450 IF SVE$="N" OR SVE$="n" THEN 10 7460 GOTO 7440 7470 CLS:COLOR 4:LOCATE 9,32:FOR X = 1 TO 15:PRINT CHR$(196);:NEXT 7480 LOCATE 11,32:FOR X = 1 TO 15:PRINT CHR$(196);:NEXT 7490 LOCATE 9,31:PRINT CHR$(218):LOCATE 9,47:PRINT CHR$(191) 7500 LOCATE 11,31:PRINT CHR$(192):LOCATE 11,47:PRINT CHR$(217) 7510 LOCATE 10,31:PRINT CHR$(179):LOCATE 10,47:PRINT CHR$(179) 7520 LOCATE 10,34:COLOR 31:PRINT"S A V I N G":COLOR 15 7530 LOCATE 25:PRINT STRING$(80,255) 7540 SAVE"ELEMENTS.BAS" 7545 GOTO 10 7550 CLS:COLOR 15:LOCATE 25,24:PRINT"Do you wish to ";:COLOR 31:PRINT"exit";:COLOR 15:PRINT" this program? 7560 E$=INKEY$:IF E$="Y" OR E$="y" THEN 7590 7570 IF E$="N" OR E$="n" THEN 7360 7580 GOTO 7560 7590 LOCATE 25:PRINT STRING$(80,255) 7600 LOCATE 10,32:PRINT;:COLOR 15:PRINT" Are you sure? ";:COLOR 5:PRINT" " 7610 YN$=INKEY$:IF YN$="y" OR YN$="Y" THEN 7660 7620 IF YN$="N" OR YN$="n" THEN 7640 7630 GOTO 7610 7640 LOCATE 25:PRINT STRING$(80,255) 7650 GOTO 10 7660 RUN"files." 7670 ' ------------------------------------------------------------------------ 7680 ' INSTRUCTION SET SUBROUTINE 7690 ' ------------------------------------------------------------------------ 7700 LOCATE 25,7:PRINT"Press (";:COLOR 31:PRINT"R";:COLOR 5:PRINT") to repeat, (";:COLOR 31:PRINT"C";:COLOR 5:PRINT") to continue, (";:COLOR 31:PRINT"S";:COLOR 5:PRINT") to select, (";:COLOR 31:PRINT"E";:COLOR 5:PRINT") to exit" 7710 RETURN 7720 GOTO 10 7730 CLS:LOCATE 10,7:LINE INPUT"Enter the name of the element you want accessed (in CAPS!). ";S$ 7740 IF S$="STRONTIUM" THEN 140 7750 IF S$="CARBON" THEN 240 7760 IF S$="CESIUM" THEN 340 7770 IF S$="FLUORINE" THEN 440 7780 IF S$="MAGNESIUM" THEN 540 7790 IF S$="CHLORINE" THEN 640 7800 IF S$="GALLIUM" THEN 840 7810 IF S$="ARSENIC" THEN 940 7820 IF S$="SODIUM" THEN 740 7830 IF S$="BARIUM" THEN 1040 7840 IF S$="BERYLLIUM" THEN 1140 7850 IF S$="ARGON" THEN 1240 7860 IF S$="HAFNIUM" THEN 1340 7870 IF S$="THORIUM" THEN 1510 7880 IF S$="BROMINE" THEN 1610 7890 IF S$="MOLYBDENUM" THEN 1710 7900 IF S$="ALUMINUM" THEN 1810 7910 IF S$="BISMUTH" THEN 1910 7920 IF S$="CADMIUM" THEN 2010 7930 IF S$="ACTINIUM" THEN 2110 7940 IF S$="RADON" THEN 2210 7950 IF S$="CALCIUM" THEN 2310 7960 IF S$="NICKEL" THEN 2420 7970 IF S$="LEAD" THEN 2520 7980 IF S$="POTASSIUM" THEN 2620 7990 IF S$="RADIUM" THEN 2720 8000 IF S$="COPPER" THEN 2820 8010 IF S$="HELIUM" THEN 2920 8020 IF S$="IRON" THEN 3020 8030 IF S$="ANTIMONY" THEN 3120 8040 IF S$="BORON" THEN 3220 8050 IF S$="CHROMIUM" THEN 3330 8060 IF S$="COBALT" THEN 3430 8070 IF S$="GERMANIUM" THEN 3530 8080 IF S$="IODINE" THEN 3630 8090 IF S$="IRIDIUM" THEN 3730 8100 IF S$="INDIUM" THEN 3830 8110 IF S$="GOLD" THEN 3930 8120 IF S$="KRYPTON" THEN 4030 8130 IF S$="PLUTONIUM" THEN 4130 8140 IF S$="POLONIUM" THEN 4230 8150 IF S$="LANTHANUM" THEN 4330 8160 IF S$="LITHIUM" THEN 4430 8170 IF S$="ZIRCONIUM" THEN 4530 8180 IF S$="ZINC" THEN 4630 8190 IF S$="YTTRIUM" THEN 4730 8200 IF S$="XENON" THEN 4830 8210 IF S$="VANADIUM" THEN 4930 8220 IF S$="URANIUM" THEN 5030 8230 IF S$="MANGANESE" THEN 5130 8240 IF S$="MERCURY" THEN 5230 8250 IF S$="NEON" THEN 5330 8260 IF S$="NITROGEN" THEN 5430 8270 IF S$="OSMIUN" THEN 5530 8280 IF S$="PALLADIUM" THEN 5630 8290 IF S$="PHOSPHORUS" THEN 5730 8300 IF S$="PLATINUM" THEN 5830 8310 IF S$="TIN" THEN 5930 8320 IF S$="RUBIDIUM" THEN 6030 8330 IF S$="SCANDIUM" THEN 6130 8340 IF S$="SELENIUM" THEN 6230 8350 IF S$="SILICON" THEN 6330 8360 IF S$="SILVER" THEN 6430 8370 IF S$="SULFUR" THEN 6530 8380 IF S$="TANTALUM" THEN 6630 8390 IF S$="TECHNETIUM" THEN 6730 8400 IF S$="TELLURIUM" THEN 6830 8410 IF S$="THALLIUM" THEN 6930 8420 IF S$="THULIUM" THEN 7030 8430 IF S$="TITANIUM" THEN 7130 8440 IF S$="TUNGSTEN" THEN 7230 ELSE 8480 8450 ' ------------------------------------------------------------------------ 8460 ' INAPPROPRIATE ENTRY SUBROUTINE 8470 ' ------------------------------------------------------------------------ 8480 CLS:LOCATE 10,22:COLOR 4:PRINT" No such element listed in database ":COLOR 15 8490 LOCATE 25,29:PRINT"Press SPACEBAR to return 8500 IF INKEY$ <> " " THEN 8500 8510 GOTO 10